10 KEY OFF
20 KEY 1,""
30 KEY 2,""
40 KEY 3,""
50 KEY 4,""
60 KEY 5,""
70 KEY 6,""
80 KEY 7,""
90 KEY 8,""
100 KEY 9,""
110 KEY 10,""
120 SCREEN 0,0,0
130 WIDTH 40
140 GRD=0
150 FORM$="1213254321"
160 TLIMIT$="00:01:00"
170 TEST=25
180 MPROB=0
190 BASE=0
200 CLS
210 LOCATE 1,10,0:PRINT"Welcome to MATH TUTOR"
220 LOCATE 3,19:PRINT"by"
230 LOCATE 5,12:PRINT"Joseph C. Barteck"
240 LOCATE 8,10:PRINT"What would you like?"
250 LOCATE 11,10:PRINT"1. Instructions"
260 LOCATE 13,10:PRINT"2. Math Exercise"
270 LOCATE 15,10:PRINT"3. Math Test"
280 LOCATE 17,10:PRINT"4. Saved Program"
290 LOCATE 19,10:PRINT"5. Program Set-Up"
300 LOCATE 21,10:PRINT"6. Quit"
310 LOCATE 24,10,0:PRINT"To return, press ESC";
320 E$=INPUT$(1)
330 IF E$<"1" OR E$>"6" GOTO 320
340 SEL=VAL(E$)
350 COMMON GRD,SEL,FORM$,TLIMIT$,TEST,MPROB,BASE
360 CLS
370 LOCATE 13,11,0:PRINT"One moment, please!"
380 ON SEL GOTO 420,390,390,400,410,430
390 CHAIN "a:math",230
400 CHAIN "a:math"
410 CHAIN "a:setup"
420 CHAIN "a:instr"
430 CLS
440 LOCATE 13,13,0:PRINT"Have a nice day!"
450 LOCATE 23,1
460 END
470 430
